object PTFrmOpenDlg: TPTFrmOpenDlg Left = 565 Top = 448 ActiveControl = FileNameEdt AutoScroll = False BorderIcons = [biSystemMenu, biMaximize] Caption = 'Open' ClientHeight = 265 ClientWidth = 451 Color = clBtnFace Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter ShowHint = True OnCloseQuery = FormCloseQuery OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object LookInTxt: TLabel Left = 8 Top = 8 Width = 38 Height = 13 Caption = 'Look &in:' FocusControl = PTShellCombo1 end object UpOneLevelBtn: TSpeedButton Left = 272 Top = 4 Width = 23 Height = 22 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222222222222222222200000000000000020FBFBFBFBFBFBF020BFBFBFBFBFB FB020FBFB000000FBF020BFBF0FBFBFBFB020FBFB0BFBFBFBF020BF00000FBFB FB020FBF000FBFBFBF020BFBF0FBFBFBFB020FBFBFBFBFBFBF02000000000000 002220BFBFB02222222222000002222222222222222222222222} OnClick = UpOneLevelBtnClick end object CreateNewFolderBtn: TSpeedButton Left = 336 Top = 4 Width = 23 Height = 22 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333FFFFFFFFFFF3330000000000033333388888888888F3330BFBFBFBFB0 33333383333333338F3330FBFBFBFBF033333383333333338F3330BFBFBFBFB0 33333383333333338F3330FBFBFBFBF033033383333333338F3830BFBFBFBFB0 30333383333333338F8F30FBFBFBFBF0033333833333333388F3300000000003 3030338888888888338F330BFBF03303033333383333833838F3333000033030 30333333888833838F8F33333333033333033333333338F33338333333333330 33333333333333338F3333333333333333333333333333333333333333333330 33333333333333338F3333333333333333333333333333333333} NumGlyphs = 2 OnClick = CreateNewFolderBtnClick end object ShowTreeBtn: TSpeedButton Left = 368 Top = 4 Width = 23 Height = 23 AllowAllUp = True GroupIndex = 2 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333300033333333300030F03333333330333000333333333033333333 00033330333300030F0333303333033300033330333333333333333033300033 333333300030F033333333303330003333333333333333333333330003333333 3333330F03333333333333000333333333333333333333333333} OnClick = ShowTreeBtnClick end object ShowDesktopBtn: TSpeedButton Left = 304 Top = 4 Width = 23 Height = 22 Hint = 'Show Desktop' Glyph.Data = { FE000000424DFE00000000000000760000002800000010000000110000000100 0400000000008800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDD0000000000000000666C8888888C6CC06EC777777777C7C06C7770877777 7C6067F70708777777C08F707F70877777808F07FFF7087777808F78FF0F7077 77808FF78F330877778067FF783B308777406C7FF783B30874C066C7FF7F3B30 47C06E6C7FFFF3B30CC066666888883B3080DDDDDDDDDDD391DDDDDDDDDDDDDD 11DD} OnClick = ShowDesktopBtnClick end object ViewBtn: TSpeedButton Tag = 3 Left = 399 Top = 4 Width = 34 Height = 23 AllowAllUp = True Glyph.Data = { 2A010000424D2A010000000000007600000028000000170000000F0000000100 040000000000B4000000130B0000130B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDD00000000000000000DDDDDDD00FFFFFFFFFFFFFF0DDDDDDD00F44 FFFFF44FFFF0DDDDDDD00F84F00FF74F00F0DDDDDDD00FFFFFFFFFFFFFF0DDDD DDD00F44FFFFF44FFFF0DDDD0DD00F84F00FF84F00F0DDD000D00FFFFFFFFFFF FFF0DD0000000F44FFFFF44FFFF0DDDDDDD00F84F00FF84F00F0DDDDDDD00FFF FFFFFFFFFFF0DDDDDDD00000000000000000DDDDDDD00CCCCCCCCCCCCCC0DDDD DDD00000000000000000DDDDDDD0} OnMouseDown = ViewBtnMouseDown end object PTShellCombo1: TPTShellCombo Left = 72 Top = 4 Width = 193 Height = 22 HelpContext = 28456 ShellList = PTShellList1 Options = [ptscoAutofill] DropDownCount = 16 TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 181 Width = 451 Height = 84 Align = alBottom BevelOuter = bvNone TabOrder = 2 object FileNameTxt: TLabel Left = 8 Top = 10 Width = 48 Height = 13 Caption = 'File &name:' FocusControl = FileNameEdt end object FilesOfTypeTxt: TLabel Left = 8 Top = 38 Width = 59 Height = 13 Caption = 'Files of &type:' FocusControl = FileTypesCbx end object FileNameEdt: TEdit Left = 88 Top = 6 Width = 277 Height = 21 TabOrder = 0 OnChange = FileNameEdtChange end object FileNameCbx: TComboBox Left = 88 Top = 6 Width = 277 Height = 21 ItemHeight = 13 TabOrder = 4 TabStop = False Visible = False end object FileTypesCbx: TPTCombobox Left = 88 Top = 34 Width = 277 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 OnSelEndOk = FileTypesCbxSelEndOk end object OpenBtn: TButton Left = 372 Top = 4 Width = 75 Height = 23 HelpContext = 28529 Caption = '&Open' Default = True ModalResult = 1 TabOrder = 2 end object CancelBtn: TButton Left = 372 Top = 32 Width = 75 Height = 23 HelpContext = 28444 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object ReadOnlyChk: TCheckBox Left = 88 Top = 60 Width = 233 Height = 17 Caption = 'Open as &read-only' TabOrder = 5 OnClick = ReadOnlyChkClick end object HelpBtn: TButton Left = 372 Top = 60 Width = 75 Height = 23 Caption = '&Help' TabOrder = 6 Visible = False OnClick = HelpBtnClick end end object SplitterContainer: TPTGroup Left = 2 Top = 30 Width = 447 Height = 153 FrameStyle = ptfsNone TabOrder = 1 object PTSplitter1: TPTSplitter Left = 0 Top = 0 Width = 447 Height = 153 Align = alClient Color = clBtnFace ParentColor = False Position = 141 SplitterWidth = 5 TabOrder = 0 object PTSplitter1_pane1: TPTPane Left = 0 Top = 0 Width = 141 Height = 153 TabOrder = 0 MinSize = 4 Index = 0 object PTShellTree1: TPTShellTree Left = 0 Top = 0 Width = 137 Height = 149 Options = [ptstoAutoFill, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoDynamicRefresh] BorderStyle = bsNone DragMode = dmAutomatic HideSelection = False Indent = 19 OnChange = PTShellTree1Change Align = alClient TabOrder = 0 end end object PTSplitter1_pane2: TPTPane Left = 146 Top = 0 Width = 301 Height = 153 TabOrder = 1 MinSize = 60 Index = 1 object PTShellList1: TPTShellList Left = 0 Top = 0 Width = 297 Height = 149 HelpContext = 28549 Options = [ptsloAutoFill, ptsloDefaultKeyHandling, ptsloContextMenus, ptsloDynamicRefresh] OnFolderChanged = PTShellList1FolderChanged Align = alClient BorderStyle = bsNone HideSelection = False IconOptions.AutoArrange = True OnChange = PTShellList1Change PopupMenu = LvPopup TabOrder = 0 ViewStyle = vsList end end end end object LvPopup: TPopupMenu Left = 384 Top = 48 object View1Mitm: TMenuItem Caption = '&View' object LargeIcons1Mitm: TMenuItem Caption = 'Lar&ge icons' RadioItem = True OnClick = ViewBtnClick end object Smallicons1MItm: TMenuItem Tag = 1 Caption = 'S&mall icons' RadioItem = True OnClick = ViewBtnClick end object List1Mitm: TMenuItem Tag = 2 Caption = '&List' Checked = True RadioItem = True OnClick = ViewBtnClick end object Details1Mitm: TMenuItem Tag = 3 Caption = '&Details' RadioItem = True OnClick = ViewBtnClick end end object N1: TMenuItem Caption = '-' end object Paste1Mitm: TMenuItem Caption = '&Paste' OnClick = Paste1MitmClick end object N3: TMenuItem Caption = '-' end object New1Mitm: TMenuItem Caption = 'Ne&w' object Folder1Mitm: TMenuItem Caption = '&Folder' OnClick = CreateNewFolderBtnClick end end object N2: TMenuItem Caption = '-' end object Properties1Mitm: TMenuItem Caption = 'P&roperties' OnClick = Properties1MitmClick end end object ViewPopupMenu: TPopupMenu Left = 380 Top = 78 object LargeIcons2Mitm: TMenuItem Caption = 'Lar&ge icons' RadioItem = True OnClick = ViewBtnClick end object SmallIcons2Mitm: TMenuItem Tag = 1 Caption = 'S&mall icons' RadioItem = True OnClick = ViewBtnClick end object List2Mitm: TMenuItem Tag = 2 Caption = '&List' Checked = True RadioItem = True OnClick = ViewBtnClick end object Details2Mitm: TMenuItem Tag = 3 Caption = '&Details' RadioItem = True OnClick = ViewBtnClick end end end